/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_emacs.idb / usr / freeware / share / emacs / 19.34 / lisp / soundex.elc.z / soundex.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6b 77 7a 68 40 63 68 |piled by| kwzh@ch|
|00000020| 75 72 63 68 79 2e 67 6e | 75 2e 61 69 2e 6d 69 74 |urchy.gn|u.ai.mit|
|00000030| 2e 65 64 75 20 6f 6e 20 | 54 68 75 20 4d 61 79 20 |.edu on |Thu May |
|00000040| 32 33 20 31 34 3a 32 35 | 3a 35 34 20 31 39 39 36 |23 14:25|:54 1996|
|00000050| 0a 3b 3b 3b 20 66 72 6f | 6d 20 66 69 6c 65 20 2f |.;;; fro|m file /|
|00000060| 67 64 2f 67 6e 75 2f 65 | 6d 61 63 73 2f 31 39 2e |gd/gnu/e|macs/19.|
|00000070| 30 2f 6c 69 73 70 2f 73 | 6f 75 6e 64 65 78 2e 65 |0/lisp/s|oundex.e|
|00000080| 6c 0a 3b 3b 3b 20 65 6d | 61 63 73 20 76 65 72 73 |l.;;; em|acs vers|
|00000090| 69 6f 6e 20 31 39 2e 33 | 31 2e 31 2e 0a 3b 3b 3b |ion 19.3|1.1..;;;|
|000000a0| 20 62 79 74 65 63 6f 6d | 70 20 76 65 72 73 69 6f | bytecom|p versio|
|000000b0| 6e 20 46 53 46 20 32 2e | 31 30 0a 3b 3b 3b 20 6f |n FSF 2.|10.;;; o|
|000000c0| 70 74 69 6d 69 7a 61 74 | 69 6f 6e 20 69 73 20 6f |ptimizat|ion is o|
|000000d0| 6e 2e 0a 3b 3b 3b 20 74 | 68 69 73 20 66 69 6c 65 |n..;;; t|his file|
|000000e0| 20 75 73 65 73 20 6f 70 | 63 6f 64 65 73 20 77 68 | uses op|codes wh|
|000000f0| 69 63 68 20 64 6f 20 6e | 6f 74 20 65 78 69 73 74 |ich do n|ot exist|
|00000100| 20 69 6e 20 45 6d 61 63 | 73 20 31 38 2e 0a 0a 28 | in Emac|s 18...(|
|00000110| 69 66 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |if (and |(boundp |
|00000120| 27 65 6d 61 63 73 2d 76 | 65 72 73 69 6f 6e 29 0a |'emacs-v|ersion).|
|00000130| 09 20 28 6f 72 20 28 61 | 6e 64 20 28 62 6f 75 6e |. (or (a|nd (boun|
|00000140| 64 70 20 27 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |dp 'epoc|h::versi|
|00000150| 6f 6e 29 20 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |on) epoc|h::versi|
|00000160| 6f 6e 29 0a 09 20 20 20 | 20 20 28 73 74 72 69 6e |on)..   |  (strin|
|00000170| 67 2d 6c 65 73 73 70 20 | 65 6d 61 63 73 2d 76 65 |g-lessp |emacs-ve|
|00000180| 72 73 69 6f 6e 20 22 31 | 39 2e 32 39 22 29 29 29 |rsion "1|9.29")))|
|00000190| 0a 20 20 20 20 28 65 72 | 72 6f 72 20 22 60 73 6f |.    (er|ror "`so|
|000001a0| 75 6e 64 65 78 2e 65 6c | 27 20 77 61 73 20 63 6f |undex.el|' was co|
|000001b0| 6d 70 69 6c 65 64 20 66 | 6f 72 20 45 6d 61 63 73 |mpiled f|or Emacs|
|000001c0| 20 31 39 2e 32 39 20 6f | 72 20 6c 61 74 65 72 22 | 19.29 o|r later"|
|000001d0| 29 29 0a 0a 0a 23 40 35 | 35 20 41 6c 69 73 74 20 |))...#@5|5 Alist |
|000001e0| 6f 66 20 63 68 61 72 73 | 2d 74 6f 2d 6b 65 79 2d |of chars|-to-key-|
|000001f0| 63 6f 64 65 20 66 6f 72 | 20 62 75 69 6c 64 69 6e |code for| buildin|
|00000200| 67 20 53 6f 75 6e 64 65 | 78 20 6b 65 79 73 2e 1f |g Sounde|x keys..|
|00000210| 0a 28 64 65 66 76 61 72 | 20 73 6f 75 6e 64 65 78 |.(defvar| soundex|
|00000220| 2d 61 6c 69 73 74 20 28 | 71 75 6f 74 65 20 28 28 |-alist (|quote ((|
|00000230| 36 36 20 2e 20 22 31 22 | 29 20 28 37 30 20 2e 20 |66 . "1"|) (70 . |
|00000240| 22 31 22 29 20 28 38 30 | 20 2e 20 22 31 22 29 20 |"1") (80| . "1") |
|00000250| 28 38 36 20 2e 20 22 31 | 22 29 20 28 36 37 20 2e |(86 . "1|") (67 .|
|00000260| 20 22 32 22 29 20 28 37 | 31 20 2e 20 22 32 22 29 | "2") (7|1 . "2")|
|00000270| 20 28 37 34 20 2e 20 22 | 32 22 29 20 28 37 35 20 | (74 . "|2") (75 |
|00000280| 2e 20 22 32 22 29 20 28 | 38 31 20 2e 20 22 32 22 |. "2") (|81 . "2"|
|00000290| 29 20 28 38 33 20 2e 20 | 22 32 22 29 20 28 38 38 |) (83 . |"2") (88|
|000002a0| 20 2e 20 22 32 22 29 20 | 28 39 30 20 2e 20 22 32 | . "2") |(90 . "2|
|000002b0| 22 29 20 28 36 38 20 2e | 20 22 33 22 29 20 28 38 |") (68 .| "3") (8|
|000002c0| 34 20 2e 20 22 33 22 29 | 20 28 37 36 20 2e 20 22 |4 . "3")| (76 . "|
|000002d0| 34 22 29 20 28 37 37 20 | 2e 20 22 35 22 29 20 28 |4") (77 |. "5") (|
|000002e0| 37 38 20 2e 20 22 35 22 | 29 20 28 38 32 20 2e 20 |78 . "5"|) (82 . |
|000002f0| 22 36 22 29 29 29 20 28 | 23 24 20 2e 20 34 37 34 |"6"))) (|#$ . 474|
|00000300| 29 29 0a 23 40 31 38 30 | 20 52 65 74 75 72 6e 20 |)).#@180| Return |
|00000310| 61 20 53 6f 75 6e 64 65 | 78 20 6b 65 79 20 66 6f |a Sounde|x key fo|
|00000320| 72 20 57 4f 52 44 2e 0a | 49 6d 70 6c 65 6d 65 6e |r WORD..|Implemen|
|00000330| 74 65 64 20 61 73 20 64 | 65 73 63 72 69 62 65 64 |ted as d|escribed|
|00000340| 20 69 6e 3a 0a 4b 6e 75 | 74 68 2c 20 44 6f 6e 61 | in:.Knu|th, Dona|
|00000350| 6c 64 20 45 2e 20 22 54 | 68 65 20 41 72 74 20 6f |ld E. "T|he Art o|
|00000360| 66 20 43 6f 6d 70 75 74 | 65 72 20 50 72 6f 67 72 |f Comput|er Progr|
|00000370| 61 6d 6d 69 6e 67 2c 20 | 56 6f 6c 2e 20 33 3a 20 |amming, |Vol. 3: |
|00000380| 53 6f 72 74 69 6e 67 0a | 61 6e 64 20 53 65 61 72 |Sorting.|and Sear|
|00000390| 63 68 69 6e 67 22 2c 20 | 41 64 64 69 73 6f 6e 2d |ching", |Addison-|
|000003a0| 57 65 73 6c 65 79 20 28 | 31 39 37 33 29 2c 20 70 |Wesley (|1973), p|
|000003b0| 70 2e 20 33 39 31 2d 33 | 39 32 2e 1f 0a 28 64 65 |p. 391-3|92...(de|
|000003c0| 66 61 6c 69 61 73 20 27 | 73 6f 75 6e 64 65 78 20 |falias '|soundex |
|000003d0| 23 5b 28 77 6f 72 64 29 | 20 22 08 96 89 18 47 19 |#[(word)| "....G.|
|000003e0| 08 c2 48 0b 9e 41 1c 08 | c2 c5 4f 1e 06 c5 1e 07 |..H..A..|..O.....|
|000003f0| 5c 66 1e 08 c9 0e 06 47 | 56 83 4e 00 0e 07 09 57 |\f.....G|V.N....W|
|00000400| 83 4e 00 08 0e 07 48 0b | 9e 41 14 0e 07 54 16 07 |.N....H.|.A...T..|
|00000410| 0e 06 5c 66 3f 86 40 00 | 5c 66 0e 08 98 3f 85 45 |..\f?.@.|\f...?.E|
|00000420| 00 5c 66 50 16 06 5c 66 | 16 08 82 19 00 c9 0e 06 |.\fP..\f|........|
|00000430| 47 56 83 60 00 0e 06 ca | 50 c2 c9 4f 82 62 00 0e |GV.`....|P..O.b..|
|00000440| 06 2e 06 87 22 20 5b 77 | 6f 72 64 20 6c 65 6e 67 |...." [w|ord leng|
|00000450| 74 68 20 30 20 73 6f 75 | 6e 64 65 78 2d 61 6c 69 |th 0 sou|ndex-ali|
|00000460| 73 74 20 63 6f 64 65 20 | 31 20 6b 65 79 20 69 6e |st code |1 key in|
|00000470| 64 65 78 20 70 72 65 76 | 2d 63 6f 64 65 20 34 20 |dex prev|-code 4 |
|00000480| 22 30 30 30 22 5d 20 34 | 20 28 23 24 20 2e 20 37 |"000"] 4| (#$ . 7|
|00000490| 37 37 29 5d 29 0a       |                         |77)]).  |        |
+--------+-------------------------+-------------------------+--------+--------+